﻿Imports System.Globalization

Namespace Microsoft
	Public Class VisualBasic
		Shared Function Chr(ByVal CharCode As Integer) As Char
			Dim resultado As Char

			'Dim buffer As Byte() = New Byte(0) {}
			'Dim fs = New dewitcher.IO.MemoryStream(buffer)
			'Dim reader As New GruntyOS.IO.BinaryReader(fs)

			''fs.Write(CByte(CharCode))

			''resultado = reader.ReadString(0)

			'fs.Close()
			''reader.Close()

			Return resultado
		End Function

		Shared Function Asc(ByVal [String] As Char) As Integer
			Dim resultado As Integer

			Dim buffer As Byte() = New Byte(0) {}
			'Dim fs = New dewitcher.IO.MemoryStream(buffer)
			'Dim writer As New dewitcher.IO.BinaryWriter(fs)

			'writer.Write([String])

			'resultado = CInt(fs.Read())

			'fs.Close()
			'reader.Close()

			Return resultado
		End Function
	End Class

End Namespace
